Aprende 
Jugando 


TITULO: APRENDE JUGANDO. 

AUTORES: Antonio Arjona de Gomar. 
Manuel Fernández Alonso. 

DIBUJOS: David Gómez Lozoya. 


PRIMERA EDICION, 
Reservados todos los derechos. 
Prohibida la reproducción 
total o parcial, por cualquier 
medio, de esta obra, 

aún citando su procedencia. 


O EDISOFT, S.A. - 1987 
Avda. de Las Naciones, 2 - FUENLABRADA (Madrid). 


Depósito Legal: EN TRAMITACION. 


Impreso en España. 
IMPRIME: Gráficas Futura, S.A. 


A. Arjona 
M. Fernández 


Dibujos: 
Lozoya 


Aprende 
Jugando 


SPECTRUM 16-48-128 K 


EDISOFT, S.A. 


* Introducción 

+ Notas de interés para el usuario 
Colores 
Figuras geométricas 


Si te atreves 

Despedida 

Glosario de términos informáticos 

Algunas instrucciones, comandos y funciones del Basic 
en el Spectrum 


Introducción 


«... SON señores muy serios». Así creen que son los 
programadores, «hablan lenguajes extraños, casi 
indescifrables», opinan otros, sin embargo, con todos 
los años que llevo trabajando para ellos me parece que 
el asunto es distinto. 


¡Perdón!, es que tengo la costumbre hablar solo: me llamo «Fito», 
de «Enchufito», trabajo con un ordenador SPECTRUM, como el 
tuyo, y me encargo de su alimentación: lo conecto a la red; llevamos 
muchos años juntos y, con el Profesor Calambrín, un señor con 
muchos pelos e inteligencia, constituimos lo que se llama ¡un buen 
equipo! como el que formaréis tú y tu SPECTRUM, con un poco de 
mi ayuda. 


El SPECTRUM es un ordenador con muchas cualidades, unas 
fáciles de usar y otras no tanto. Al comenzar pedí ayuda al Profesor 
Calambrín para que nos explicara el funcionamiento del ordenador, 
a lo que él llamó NOTAS PARA EL USUARIO, con su gran sabi- 
duría y pocas palabras técnicas nos deja bien preparados para iniciar 
el camino en el mundo de la informática. 


Daremos los pasos de forma muy clara: los capítulos están divi- 
didos en ejercicios y éstos cuentan, generalmente, tres partes, la pri- 
mera es un comentario acerca de lo que trata el ejercicio, referencias 
a las instrucciones empleadas y, por último, algunos datos referentes 
a la utilidad de ese ejercicio. La segunda parte es el listado del progra- 
ma, el cual copiarás en tu ordenador y ejecutarás pulsando RUN + 
ENTER, posteriormente lo podrás modificar de acuerdo con tus 
inquietudes o con lo reseñado en la tercera parte. 


En el largo caminar ya comenzado, encontraremos muchas eta- 
pas, en unas usaremos los COLORES, para pintar la pantalla hasta 
su último rincón; también los utilizaremos cuando dibujemos FIGU- 
RAS GEOMETRICAS y nos acompañarán en la gran aventura por 
el mundo de los SONIDOS. En otras etapas nos encontraremos 
«dialogando» con el ordenador (INPUT/PRINT) y, también respon- 
diendo y revisando interrogantes (IF... THEN), todo esto con 
«herramientas» que nos llevarán, junto con otras, a mover objetos 
por la pantalla. 


Unos preciosos dibujos GRAFICOS que te aclararán cómo hacer 
los tuyos y, para finalizar, 44 líneas de programa para una gran 
sorpresa. 
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Notas de interés para el usuario 


A continuación nuestro amigo «El profesor Calambrín» nos re- 
cuerda algunos conceptos elementales para el manejo de tu ordena- 
dor, como pueden ser: listado de programas, corrección de errores, 
modo del cursor, etc. 


MODOS DEL CURSOR 


E 


E «- SYMBOL ¿CAPS 
SHIFT SHIFT 


SYMBOL 


El Spectrum está esperando una palabra clave. Si pulsamos 
cualquier tecla, en la pantalla aparecerá la palabra clave asocia- 
da a dicha tecla. 

Por ejemplo: si pulsamos la tecla B, aparecerá BORDER y el 
CURSOR cambiará a modo L. 


Con el CURSOR en modo L, obtendremos los caracteres prin- 
cipales (letras, números, etc.). 


Es el modo de mayúsculas. Aparece pulsando CAPS SHIFT, y 
la tecla 2, o bien la tecla CAPS LOCK en el Spectrum +. 


E: — Aparece pulsando simultáneamente CAPS SHIFT y SYMBOL 
SHIFT, o bien, la tecla EXTEND en el Spectrum +. Se obtie- 
nen las palabras que aparecen en la parte superior de las teclas. 
Las palabras que figuran inmediatamente debajo también se 
obtienen con este CURSOR, pero pulsando SYMBOL SHIFT 
o CAPS SHIFT y la tecla correspondiente. 


G: Este modo lo veremos más adelante. 


Los símbolos *,t, < >, etc., se obtienen pulsando SYMBOL 
SHIFT y la tecla que proceda. 


Como ya sabrás, las líneas de un programa deberán ir precedidas 
por un número. 
Teclea lo siguiente: 
10 print “Aprende” 
y pulsa ENTER 
La línea en cuestión aparecerá en la parte superior de la 
pantalla. 
Vamos a introducir una nueva línea: 20 print “Jugando” 
y pulsa ENTER. 
Para ejecutar el programa debemos teclear RUN + EN- 
TER. En la pantalla aparecerá: 
Aprende 
Jugando 
Si a continuación pulsamos de nuevo ENTER, volveremos al 
listado del programa. 


Para hacer una modificación, deberemos colocar el CURSOR 
“>”, en la línea que queremos modificar. Esto lo haremos mediante 
las flechas de dirección: 4, |, -—,—, que se encuentran situadas en 
la parte inferior del Spectrum + y en las teclas 5-6-7-8 del ZX 
Spectrum (para este último deberemos pulsar simultáneamente 
SYMBOL SHIFT). A continuación teclearemos CAPS SHIFT y la 
tecla 1, o EDIT en el Spectrum +, para bajar la línea; y usaremos 
nuevamente las mencionadas flechas para situarnos en la parte de la 
línea que queremos modificar. 

Para borrar pulsaremos CAPS SHIFT y 0, o DELETE en el 
Spectrum +. Si al intentar introducir una línea en alguna parte de la 
misma aparece el signo ?, indica que hay algún error en la misma. 

Si introducimos un número de línea seguido de ENTER la línea 
en Cuestión desaparece. 

Si introducimos dos líneas con el mismo número, prevalecerá la 
última borrándose la anterior. 

Para borrar la pantalla teclear CLS + ENTER. 

Para borrar un programa de la memoria teclear NEW + ENTER 

Para salvar un programa en una cinta de cassette, teclear SAVE 
“nombre del programa (10 caracteres como máximo)” + ENTER; 
cuando aparezca en la pantalla el mensaje «START TAPE, THEN 
PRESS ANY KEY» pon el cassette en modo de grabación y pulsa 
cualquier tecla. 

Para cargar un programa desde cinta, teclea LOAD””, o LOAD- 
“nombre del programa” seguido de ENTER. 

Para listar un programa teclea LIST + ENTER. 
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COLORES 


CAPITULO 1 


CAPITULO 1 - EJERCICIO - 1 


En el mundo de los colores nuestro Spectrum es un artista, nos da 
una gran variedad de ellos, con los que se pueden pintar muchas 
cosas, lo primero será nuestra pantalla; en ella tú siempre has visto 
dos partes, una, la parte interior, como un gran cuadrado, y la otra, 
que lo rodea... 


Me parece que basta de hablar y a la acción. 


10 BORDER 7 
20 FAFER 7 
30 CL5 


¿Qué tal? Seguramente esto no lo sabías. ¿Y si damos algunos 
«ligeros retoques» al programa? Modifica los números (no los prime- 
ros, 10, 20, 30, que son los números de línea). 


Me parece que has escogido tus colores favoritos. ¡Qué bien! 
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CAPITULO 1 - EJERCICIO - 2 


Un boli, para escribir, necesita llevar tinta, y a nuestro amigo, el 
Spectrum, le pasa algo parecido, le tenemos que indicar en qué color 
queremos escribir, y para ello, sólo entiende con INK (tinta en inglés). 

Vamos a verlo: 


EORDER 7 

FAPER: 7 

LS 

INE O 

FRINT "aprende jugando" 


Estás sospechando que puedes cambiar el color de la tinta al igual 
que lo has hecho con los del papel o borde. Pues a probar y veremos 
«aprende jugando» en muchos colores. 
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CAPITULO 1 - EJERCICIO - 3 


Ya tenemos los colores, ¿por qué no los hacemos más entreteni- 
dos? Para esto hay dos cualidades muy útiles, como son el brillo 
(BRIGHT) y el parpadeo (FLASH), que al usarlas estratégicamente, 
y en forma adecuada, nos darán atractivos resultados. 


10 EORDER 7 

20 FAFER 7 

30 LS 

40 FLASH 1 

50 BRIGHT 1 

60 INE O 
7O FRINT "aprende ¿jugando” 


Una tentación indiscutible es la de cambiar los unos (1) del 
FLASH y BRIGHT por otros números, prueba... Seguro que ha 
salido una cosa feísima y en inglés: es un mensaje de error y es lógico 
que salga. Nuestras cualidades, me refiero al BRIGHT y al FLASH 
sólo entienden con el 1 ó el 0, el 1 significa «activado» y el 0 
«apagado». 

Prúebalo y verás. 


BRGCHT — ODE 15 
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CAPITULO 1 - EJERCICIO - 4 


Podríamos darle más acción a nuestros programas. Con ayuda de 
algunas «herramientas» veremos destellos de colores en el borde de 
nuestro Spectrum. 


FOR a=0 TO 7 
FAUSE 70 
40 NEXT a 


Las «herramientas» utilizadas son ideales para muchas cosas, una 
de ellas, PAUSE (pausa en español), nos da «Tiempo de espera», eso 


sí, le tenemos que decir cuánto tiempo, nosotros le hemos dado 30, ¿y 
tú? 


CAPITULO 1 - EJERCICIO - 5 


De la misma forma que en el programa anterior, con el apoyo de 
otra «herramienta», ahora tendremos destellos de colores en el papel 
(PAPER). 


10 FOR a=0 TO 7 
ZO FAFER a 

0. La 

40 FAUSE 230 

50 NEXT a 


En la línea 30 te encuentras con una instrucción muy útil: CLS, 
es la que «limpia» el contenido de la pantalla y, en nuestro programa, 
borra y nos deja ver el cambio de color del papel (PAPER). En este 
programa, también puedes poner «tu tiempo». 
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CAPITULO 1 - EJERCICIO - 6 


Aquí tienes destellos de colores de borde y papel, con acción 


retardada entre uno y otro. 
Así como vamos, los colores del Spectrum no van a tener secretos 


para ti. 


FOR b=0 TO 7 
PAPER b 

CLS 

PAUSE ZO 
BORDER b 
NEXT b 


Si quieres lograr distintos efectos, podrías cambiar el orden, po- 
ner primero BORDER y luego PAPER, o en otro sitio el CLS. 


CAPITULO 1 - EJERCICIO - 7 


«Aprende Jugando» es mi lema, ahora vamos a cambiar el color 
de nuestras letras, de la misma forma que con el papel y el borde. 
Tenemos: 


10 FOR b=0 TO 7 

20 INE b 

SO PAUSE 0 

40 EFRINT "aprende jugando" 
SÓ NEXT b 


Y ¿qué pasaría si intercalamos un CLS entre la línea 30 y 40, en 
una línea 35, por ejemplo? 
También podemos poner otro «tiempo». 


CAPITULO 1 - EJERCICIO - 8 


Unas líneas atrás hablábamos de dar más acción a nuestra aven- 
tura en el mundo de la informática, para ello recurrimos al siguiente 
programa que llena de «Mi» de colores la pantalla. 


* Pon el teclado en modo gráfico: CAPS SHIFT + 9 en el ZX 
Spectrum O GRAPH en el Spectrum +, y CAPS SHIFT + 8. 


10 FOR b=0 TO 703 
20 INE INT (RNDA7)+1 
30 PRINT “gr; 

40 NEXT b 


¿Qué será esa cosa tan extaña en la línea 20? Es muy sencillo, 
ahora los números se escogen al AZAR, es decir, nuestro Spectrum 
va escogiendo el color que quiera y, espacio a espacio, va llenando 
toda nuestra pantalla de cuadrados de colores, hasta los 703, que son 
los espacios que tiene el PAPER, y ¿qué pasará si le ponemos un 
número menor a 703 en la línea 10? 


CAPITULO 1 - EJERCICIO - 9 


Muchas veces la combinación de elementos da mejor resultado, 
así vemos que en un grupo musical mezclan, armónicamente, varios 
instrumentos, así nosotros, como fin de este capítulo, tratamos de dar 
armoniosa combinación de elementos vistos: 


10 BORDER 1 

ZO FAFER 7 

O o 

40 INK 6 

S0 FLASH 1 

60 ERIGHT 1 

7O FOR b=0 TO 21 
80 INEH INT (KNDX7) 
90 ERINT "aprende jugando" 
100 FAUSE 20 

110 NEXT b 


FIGURAS GEOMETRICAS . 


CAPITULO 2 - EJERCICIO - 1 


Después de recorrer el mundo de los colores, nos pondremos a 
dibujar; en primer lugar haremos una circunferencia, para lo cual 
recuerda lo que hacías con el «compás» y estudia con atención esta 
palabra: CIRCLE (círculo). La línea que tienes a continuación te 
sacará de dudas. 


10 CIRCLE 123,87, 40 


Esta circunferencia está centrada en el punto 125,87 de la panta- 
lla, cambiando estos valores lo puedes poner en otro lugar del PA- 
PER, teniendo precaución, pues las circunferencias no se pueden 
sacar del PAPER... Prueba y verás. 
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CAPITULO 2 - EJERCICIO - 2 


Al igual que en el programa anterior, ahora también dibujaremos 
círculos, pero esta vez les haremos crecer desde uno pequeño a un 
«don circulote», siempre centrados en el mismo punto, lo que cam- 
biará será el radio. 


10 FOR a=0 TO 60 STEF 2 
20 CIRCLE 125,87,a 
TO NEXT a 


La palabra STEP en la línea 10 significa «paso», es decir, que 
entre círculo y círculo vamos dejando un espacio. 


Acelera el «paso» que nos queda mucho camino. 


CAPITULO 2 - EJERCICIO - 3 


Nuestros círculos no tienen color y he pensado que podríamos 


colorearlos, para ello vuelve con nosotros el INK o lo que es lo 
mismo, la tinta, y además, el AZAR. 


10 FOR a=0 TO 60 STEF 
20 CIRCLE 125,97,a 

ZO INE INT (RINDAZ) 

40 NEXT a 


Te propongo un cambio en el STEP (paso), sustituyendo el núme- 
ro 5, por otro mayor. Además puedes introducir nuevas líneas (con 
número de línea distintos a 10, 20, 30 ó 40) en las cuales puedes poner 
las instrucciones BORDER, PAPER, CLS... 
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CAPITULO 2 - EJERCICIO - 4 


A continuación veremos otra forma de crear círculos, con la 
característica principal de que, además de crecer, variaremos la altura 
del centro de la circunferencia... Esta es la razón por la que podemos 
ver como resultado esta curiosa figura. 


FOR a=0 TO 60 STEF 2 
CIRCLE 125,a,a 

INE INT (RINDx7 

NEXT a 


Si has observado con atención el listado del programa, encontra- 
rás que en el lugar del segundo número, al que corresponde la altura, 
se encuentra la letra a, al igual que en el radio... Ahora, ¿qué pasará 
si sustituimos el número 125, correspondiente al ancho, por la letra a? 

Otra modificación interesante sería reemplazar el número 60 de la 
línea 10, por otro de mayor valor, así podrás dibujar más círculos. 


CAPITULO 2 - EJERCICIO - 5 


Este programa combina elementos vistos en los anteriores. Como 
podrás observar el efecto de la combinación de los círculos crea un 
túnel transparente. 


LET E=10 

FOR A=40 TO 125 STEF 3 
LET E=k+2 

CIRCLE. INE. 1 

NEXT A 

FOR A=1233 TO 223 S5TEF 
LET E=kE-2 

CIRCLE INE 1¡4A,70,ÉE 
NEXT A 


La instrucción CIRCLE nos permite incluir el color en ella, obser- 
va con atención ese detalle para no equivocarte al escribirlo. 

En este programa podrás incluir la cualidad FLASH, que como 
recordarás, es el parpadeo, también puedes incluir alguna pausa... 
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CAPITULO 2 - EJERCICIO - 6 


Después de haber llenado la pantalla de círculos, pasamos a dibu- 
jar puntos. Antes de dibujarlos es importante que sepas la cantidad 
de puntos que tiene el PAPER, del lado izquierdo al derecho tiene 256 
puntos (numerados de 0 a 255) y de abajo a la altura máxima 176 
(numerados del O al 175). Una vez sabido esto nos pondremos manos 
a la obra: 


PLOT Lo 00 


Como has podido ver, en la única línea del programa aparece la 
palabra PLOT que significa «trazar» y es la instrucción encargada de 
dibujar el punto; el primer número que aparece a continuación de 


dicha palabra es la posición de izquierda a derecha, y el segundo 
número, la altura. 


CAPITULO 2 - EJERCICIO - 7 


Para dibujar una línea, en tu Spectrum lo primero que tienes que 
hacer es «trazar» un punto y luego por medio de la instrucción 
DRAW, «tirar la línea», determinando su longitud y dirección. 


10 PLOT 12) 80 
0 DRAW 40 


) (0) 


En el siguiente gráfico puedes ver lo que quieren decir los núme- 
ros que están a continuación de la instrucción DRAW: 


Modifica la posición de la línea (Punto x,y) y los valores de m y 
n. 
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CAPITULO 2 - EJERCICIO - 8 


Si has entendido bien lo visto en el ejemplo anterior, descubrirás 
lo fácil que puede ser dibujar un cuadrado. 


10 FLOT 100,70 
20 DRAW 0,50 
ZO DRAW 50,0 
40 DRAW 0, -50 
SO DRAW -30,0 


6 »> 


No es tan fácil, quizás, entender la presencia de esos signos en 
las líneas 40 y 50, pero la explicación sí lo es: es como caminar hacia 
atrás, el signo “-” significa que en vez de ser hacia arriba, es hacia 
abajo y el lugar de ir hacia la derecha, va hacia la izquierda. 

En este cuadrado cada lado mide 50 puntos, ahora tú podrás 
hacerlo más grande y en otra posición. 


CAPITULO 2 - EJERCICIO - 9 


Hemos dibujado círculos y cuadrados, pero también es posible 
crear triángulos, aquí tienes una demostración. 


10 FLOT E] 
ZO DRAW 
“O DRAW a — 
40 DRÁAW 90,0 
Este programa requiere mucha atención por tu parte, porque en 
él se trazan líneas inclinadas, las cuales te pueden ser de mucha 


utilidad para la creación de gráficos en el Spectrum. 
«Aprende jugando» y haz triángulos grandes. 


CAPITULO 2 - EJERCICIO - 10 


INK, STEP, PAUSE... y muchas instrucciones más para una sor- 
presa: triángulos en movimiento y a todo color. 


FOR a=195 TO 100 STEF 
INH INT <(KNDAS) 

FLOT ayós3 

DRAW 43,553 

DRAW -45,-55 

DRAW 90,0 

FAUSE 20 

CLS 

NEXT a 


En la línea 10 STEP -5, te indica que el recorrido es inverso (va 
desde 195 a 100), lo que hace que nuestro triángulo se mueva de 


derecha a izquierda. 
Podrás mover este triángulo en otras direcciones, con otro «tiem- 


po»...: Manos a la obra. 


CAPITULO 2 - EJERCICIO - 11 


El hacer crecer una figura geométrica no es tarea fácil y has de 
tener en cuenta la posición y el tamaño. 
Para que lo compruebes he escogido otra figura, un rectángulo, 


veámosle: 


10 
20 
O 
40 
SÓ 
.60 
7O 
80 
20 


FOR i=1 TO 65 


LS 

FLOT 
DRAW 
DRAW 
DRAW 
DRAW 
INE. 

NEXT 


Oti, 7+i 
Ue 2 rd 
Sur 
O 201 


=b3"L4 0 


INT (RNDx7)+1 


i 


Como ya sabes, a este programa se le pueden agregar muchas 
cosas, como por ejemplo una pausa, PAUSE. Para ver un efecto 
bonito, te propongo que borres la línea 20. 

¿Qué tal? 
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CAPITULO 2 - EJERCICIO - 12 
Para finalizar el capítulo: «los cuadrados mágicos», un bonito 
efecto del cual son protagonistas los cuadrados. 
10 BORDER 0 
ZO FAFER 0 
SO LS 
40 FOR ec=1 TO 00 
SO PLOT sE 
60 DRAW 0,c 
70 DRAW c,0 
80 DRAW 0, —c 
90 DRAW —c,0 
100 CLS 
110 NEXT € 
120 FOR a=70 TO 10 STEF -3 
130 FLOT 1l1,a 
140 DRAW O, a 
150 DRAW a,Q 
160 DRAW 0,-a 
170 DRAW —a, O 
180 PLOT 150, 
190 DRAW 0, a 
200 DRAW a, 0 
210 DRAW 0, «a 
220 DRAWN —«Íy 0 
230 FLOT dOpa 
240 DRAW Oya 
2590 DRAW a, 0 
260 DRAW 0, =« 
270 DRAW —«ay0 
a ES 
290 NEXT a 
Pero la última palabra no ha sido dicha... A este programa le falta 
color, tiempo, etc., tienes a INK, BORDER, PAPER, CLS, PAUSE, 


y tu astucia. 
A trabajar. 


CAPITULO 3 - EJERCICIO - 1 


La presentación de tus programas es muy importante y no hay 
mejor compañía que los «efectos sonoros». Una de las cualidades de 
nuestro Spectrum es su sonido, en el programa que sigue lo podrás 
apreciar: 


BEER 
REEF 
BEEP 
BEEF 
REEF 
BEEF 
REEF 
REEF 


cn, 


ua y wo ts o a. % "y 
Er DUO 


ta 


e pa pl pe pe per A e 


Como ves ésta es la escala musical; la palabra BEEP es la encar- 
gada de emitir los sonidos, el primer número es el tiempo y el segun- 
do la nota musical. 

Una de las modificaciones que puedes hacer es en el tiempo, 
donde podrías poner números diferentes en cada nota. 


CAPITULO 3 - EJERCICIO - 2 


La escala musical descendente está con tonos más altos. 
Esto es algo muy importante para la composición musical en el 


Spectrum. 


10 
20 
0 
40 
3 
b60 
7O 
30 


REEF 
REEF 
REEF 
DEER 
REEF 
REEF 
BEER 
REEF 


Seguramente Mozart se sorprendería de oír las grandes posibili- 
dades de tu Spectrum. 

Te propongo algo interesante, que cambies el orden de las notas 
y su tiempo, de esta forma podrás hacer tus primeras composiciones. 


CAPITULO 3 - EJERCICIO - 3 


Aquí vemos qué otras posibilidades tiene la instrucción BEEP, 


antes el número que correspondía a la nota era positivo, ahora es 


negativo. 


10 FOR a=30 TOO  STEF -1 
20  EEEF 0.2,-a 


SÓ NEXT a 


Los extremos a los que puede llegar el segundo número de la 


instrucción BEEP son de -60 a +69... 
¿Qué modificación te parece más interesante? Yo creo que puede 


ser cambiar el paso (STEP). 


CAPITULO 3 - EJERCICIO - 4 


En tu Spectrum también se puede componer música; a continua- 
ción una melodía. Seguro que te gustará. 


9 FOR asi TOCZ qe NEXT 
234 EEE” y > Púa 170 RKEEF 
a 180 KEEP 
e e 190 EEEF 
S0 BEEF 0.2,-: 200 DEE 
60 BEEF 0,.2,% pe 
70 BEEF 0.2 sl 

50 Do 220. .BEER 


a 


80 REEF 0.2,5 20 BEEF 


90 BEEEF 0.2 io. 
pb 240 KEEF 
100 BEEF 0.2,3 o 
- 250 EEEF 
110 EEEF ada ES 
Pad” aaa 260 REEF 
120 EEEF A. e 
peo 270 EEEF 
120 REEF ta j SS 
E 280 EEEF 
140 REEF 290 BEER 
150 FAUSE Ñ 


En este capítulo tan sólo me queda animarte para que crees tus 
propias melodías y «efectos sonoros» y... no olvides afinar el 
instrumento. 


CAPITULO 3 - EJERCICIO - 5 


Este «efecto sonoro» es un sencillo ejemplo de cómo componer 
sonidos a tus programas: cambiar a la vez el PAPER, el BORDER y 


los sonidos. 


10 
20 
e) 
40 
ESA 


JO) 


60 


50 
(ENDAT) 
(RUNDxX7) 


i=0 TO 
INT 
INT 


FOR 
FAFER 
EKORDER 
CLS 


HEEPF (RADIO) 


01, INT 
NEXT i 


Como te habrás imaginado, a este programa le puedes agregar 
más cosas, y en lo que rescpecto al BEEP, le puedes cambiar el 


tiempo. 


A trabajar. 


RESUMEN CAPITULOS 1 - 2- 3 


RESUMEN 


En este resumen hemos creado una combinación de todo lo 
aprendido en los tres primeros capítulos, aquí encontrarás una de las 
formas sencillas de utilización de las herramientas vistas. 

Por último es muy importante que no pases al siguiente capítulo 
sin antes haber comprendido el contenido de los anteriores. 


Crea tus propios programas y al copiar el ejercicio te darás cuenta 
que «Aprender es Jugar». 


10 
ZO 
0 
40 
50 
00 
TO 
30 
FO 
100 
110 
120 
130 
140 
143 
150 


199 


100 
170 

daga] e 

II 
1380 
150 
00 


e 


BORDER 1 
FAFER 6 
CLS 
FAFER 
INE 7 


FLASH 
FRINT AT 10,€ aprende punga" 


INK 1 
FLOT 
DRAW 
DRAW 
DRAW 
DRAW 30,0 

REEF 1, 1 

CIRCLE 120,1735,18 
REEF 1,18 

FLOT 220 , 10 

DRAW —20) , O 

DRAW 20 y” A) 

DRAW 4090 

BEEF 1,19 

LET a=20 

LET b=10 

FOR n=0 TO 10 


O 


.., 
L 4 


41 


42 


210 


Z2zO 


20 


40 


250 
260 
270 


y es 
PT 


a 19 

TO 
ZOO 
210 


7,20 


230 


AO 
240 
A 
OQ 
200 
370 
20 
390 
00 
410 
ZO 
ZO 
44 
443 
450 
45SO 
500 
10 
920 
E A 
940 


9500 


ELDT 

DRAW 

DRAW 20,0 
DRA 0,30 
DRAW —230y 0 
LET azarú 

LET b=b+Z2 
BEEP 0.1,n 
NEXT n 

LET a=107 

LET b=2% 

FORK n=0 TO 10 
CIRCLE aybyla 
LET azarú 

LET beb+rZ 
EEEP" 0,1 ya 10 
NEXT n 

LET a=145 

LET b=10 

FORK n=0 TO 10 
FLOT a,b 

DRAW 20,30 
DRAW 20,30 
DRAW -40,0 
LET azars 

LET b=b+2 
DEER 0.1,n+20 
NEXT n 

FLASH 0 

HEEP 0, L, Le 
BEEP 0.1317 
REEF 0.10 
BEEF" 0.1314 
EELEF O.1,11 


INPUT - PRINT 


CAPITULO 4 


CAPITULO 4 - EJERCICIO - 1 


Después de ver colores, dibujar y componer música, comenzamos 
a «dialogar» con el ordenador; para lo cual recordamos en primer 
lugar dos de las más famosas instrucciones del BASIC, que son 
INPUT (entrada) y PRINT (imprimir). 


En este programa utilizamos una «variable alfanumérica», a la 
cual identificamos con una letra (en este caso X) y el signo $ (dólar); 
con la instrucción INPUT lee lo que nostros escribimos en el teclado 
y con PRINT lo imprime. 


10 INFUT "dime tu n 
ombre" 3x6 
20 FRINT 39 
Después de la palabra INPUT hay un comentario entre comillas 


(**); éste lo puedes cambiar por otro, y así preguntar otras cosas e 
imprimirlas. 


CAPITULO 4 - EJERCICIO - 2 


Este programa es aparentemente igual que el anterior, pero si lo 
observas bien, el símbolo $ ha desparecido, esto quiere decir que el 
tipo de variable a leer es «numérica». 


10 INPUT "dime tu edad";a 
20 FRINT a 


Aquí lo que podrías hacer es combinar el ejercicio anterior con 
éste, cambiar la tinta u otra cosa. 
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CAPITULO 4 - EJERCICIO - 3 


En este programa además de incluir BORDER, FLASH e INK, 
presenta otra forma de la instrucción PRINT, en la cual se incluye un 


MENSAJE y la variable. 


10 
AO 
MW 
40 


0) 


60 


BORDER 2 

INFUT "dime tu nombre"yas$ 
INE 2 

FLASH 1 

FRINT "hola "¿ab 

FLASH 0 


La misión que realizan los signos de puntuación en la instrucción 
PRINT no ha sido estudiada; para ello te propongo la sustitución en 
la línea 20 y 50 de los (3) por (,) y fácilmente descubrirás su utilidad. 


CAPITULO 4 - EJERCICIO - 4 


Este programa es una manera muy simple de hacer una lista, en 
él presentamos en forma ordenada los datos; para lo que vamos a 
utilizar dos cosas; una es la instrucción TAB, que hace que la impre- 
sión comience en el número de columna indicado, y la otra está 
formada por los signos de puntuación en la instrucción PRINT. 


10 BORDER 4 

20 -ERINTTAB 3; "NOMBRE EDAD" 
30 FOR I=1 TO 5 

40 INFUT "DIME UN NOMBRE: "344 

50 INFUT "DIME SU EDAD: "¿X 

60 FRINT TAB 23A%,X 

70 NEXT 1 


Este ejemplo lo puedes emplear para modificar programas ante- 
riores. Por ejemplo, en cambiar el color de la «tinta» a tu voluntad: 


40 INPUT “QUE COLOR”;X 
50 INK X 


A trabajar... 


47 


IF... THEN 


vá, 


COS po 
E . 


EZ 


CAPITULO 5 - EJERCICIO - 1 


En este capítulo analizaremos la instrucción IF... THEN (si... 
entonces), así como algunos símbolos de «condición», como son 
«(mayor)», «(menor)», «(igual)». 

La función que realiza este programa es muy sencilla. Se le intro- 
duce un número, e imprimirá si es mayor, menor o igual a 10. 


INFUT *inrtroduce Ln MLmero”+x 
IF xs10 THEN FRINT “el rumero es msvor de diez” 
IF =<210 THEN PRINT "el numero es menor de diez” 


IF x=10 THEN PRINT "el numero es isusl Ss diez” 


Para completar el programa con tus nuevas ideas te recomiendo 


incluir otras formas del PRINT, y algunas características de color, 
flash... 
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CAPITULO 5 - EJERCICIO - 2 


Sumar es una de las tareas que se le pueden encargar a nuestro 
Spectrum, en este caso sumará los seis números que le introduzcas, 
imprimirá el total, y luego te preguntará si deseas continuar; si la 
respuesta es afirmativa (sí), limpiará la pantalla y volverá a comenzar 
(GO TO 10; ir a la línea 10); y si por el contrario decides no sumar 
otra vez, se ejecuta una «parada» (STOP, alto). 


10 LET tot=0 

20 FOR a=1 TO 64 

ZO INFUT "introduce un numero "grs 

40 LET tot=tot+> 

S0 NEXT a 

60 FRINT "el total.de la suma es="3 Lot 
70 INFUT "deseas continuar si/no?"33% 
80 IF s$="si" THEN  CLS 2: 60 TO 10 

90 IF s$="no" THEN  —STOF 


¿Qué tendrías que hacer para sumar más de 6 números? Sencillo, 
¿verdad?... 

Supongo que la utilización del IF...THEN, te habrá quedado 
claro en este ejemplo. i 


CAPITULO 5 - EJERCICIO - 3 


Las aplicaciones posibles de la instrucción IF...THEN son innu- 
merables, es cuestión de poner a trabajar la imaginación. Aquí te 
damos una muy útil: los test de alternativas, si no respondes en la 
forma correcta volverá a efectuar la pregunta. 


RORODER 1 
FAFER 1 
CLS 
INK 4 
PRINT AT 3y33"1l3 carital de Noruesa O... P” 
FRINT AT 7:985%1-Estocolmo” 
FRINT AT 9 385*2-Osl0” 
EFRINT AT 11:99" 3-Atenas” 
INFUT “introduce el rmimero correcto”»s 
IF s=2 THEN CLS 3 FRINT AT 10105*Correcto”i STOF 
CLS 
120 FRINT AT 1010%%incorrecto”i 
130 FAUSE 130 
140 CLS 
150 60 TO 50 


Proponerte modificaciones es tarea fácil, para ello puedes recurrir 
a lo que ya hemos visto, pero seguramente, tú tienes pensadas mu- 
chas preguntas para hacerlas a los amigos. A divertirse y «Aprende 
jugando». 


MOVIMIENTOS 


CAPITULO 6 


CAPITULO 6 


Entre las distintas características que posee nuestro ordenador 
Spectrum está la del movimiento, es decir, la posibilidad de posicio- 
narse en cualquier parte de la pantalla. 


> 
a 


| o| 1 | 2] 3 | | 6 | 7| 8] 9 pro]! 1112/1814] di lo lt! bl sb e on sal id e li al 


5 
1 
2 
3 
4 
5 
6 
7 
E 
9 
o 


3!lo0loIivioialaloInNi=10] 


e] 


y 
al 


SIN! 
IRIGIi5! 


Y] 
MEN 
la 
[TÍ] 
[| 
|] 
EN 
um 
E 
| | 11 
Y] 
Mu 
|] 
|] 
BE 
E] 
||] 
DIT] as 


Como has podido observar en el dibujo anterior, el PAPER está 
divido en pequeñas casillas semejantes a un «panal de abejas». 

Para que lo entiendas mejor, cada letra, símbolo o carácter ocupa 
uno de estos casilleros. 

Las dimensiones del PAPER son de 32 casillas a lo ancho, por 22 
a lo alto, lo cual nos da 704 casillas, que son las que tiene la pantalla. 


CAPITULO 6 - EJERCICIO - 1 


Para poder posicionarse en un lugar de la pantalla, hay que indi- 
car dónde, para esto he utilizado la instrucción AT (en) seguida de 
dos números, el primero indica la posición vertical y el otro la 
horizontal. 


10 FRINT AT 0,0; "Aprende Jugando" 


Lo que puedes hacer es poner al mensaje «Aprende jugando» en 
otras posiciones de la pantalla. También podrías realizar algún pro- 
grama aplicando lo aprendido. 


CAPITULO 6 - EJERCICIO - 2 


Movimiento significa cambiar de posición, y esto es lo que vamos 
a ver ahora; para ello nos ayudaremos de una instrucción muy útil 
INKEYS, la cual lee directamente lo que hemos pulsado en el teclado, 
sin necesidad de pulsar RETURN. 

Lo que tienes que hacer cuando ejecutes este programa es pulsar 
las teclas 5, 6, 7 u 8; y verás el movimiento del cuadrado. 


LET x*=10% LET u=ls 
PRINT AT 9 us “E 
IF INKEYS$="8% THEN 
IF INKEYS$="3% THEN 
IF INKEYS$=" 7% THEN 
IF INKEYS$="46% THEN 
GO TO 20 


PRINT AT 
PRINT AT 
PRINT AT q 
PRINT AT q 


XUL 
tdi id 
909 9% 9% +% 


"e 
ee 


El cuadrado se sale de la pantalla en algunas ocasiones, y el 
ordenador indica error; esto no debe preocuparte, ya que en el pró- 
ximo ejercicio solucionaremos este problema. 

Ahora, también te habrás dado cuenta que al pulsar el 7 el cua- 
drado subía, con el 6 bajaba, con el 5 iba a la izquierda y por último 
con el 8 a la derecha, lo que podrías hacer es relacionar otros núme- 
ros O letras a estos movimientos. Por ejemplo: 


50 IF INKEYSS$ “A” THEN PRINT AT 


bo] 


CAPITULO 6 - EJERCICIO - 3 


En este programa hemos incluido las condiciones necesarias..., 
para que nuestro rebelde cuadrado no se salga de la pantalla: observa 
atentamente las líneas 50, 70, 90 y 110, y verás que en ella se fijan los 
límites a los que pueden llegar las posiciones horizontal y vertical del 
cuadrado. 


10 LET y=1l0: LET y=ei5 

20 PRINT AT x=, yy "E" 

30 1F INKEYS="8" THEN — LET PRINTOAT >, y-1; 
33 1F y231 THEN  LET y=31 

40 IF INKREYS="35" THEN  LET y= PRINTOAT >, y+1; 
43 1F y20 THEN  LET y=0 

50 1F INKREYS="7" THEN LET => PRINT AT 

339 1F 20 THEN LET 0 

60 1F INREYS="6% THEN  LET => PRINT AT 

639 1F xo21 THEN LET o x=21 

70 GO TO 20 


«Domesticar» al cuadrado no fue difícil. Ahora podrías reempla- 
zar al cuadrado por cualquier otra figura o, inclusive, por una letra. 
Poner algún sonido, por ejemplo, uno que avise cuando se llegue a los 
límites no vendría nada mal, para ello recuerda la instrucción BEEP. 


CAPITULO 6 - EJERCICIO - 4 


Nuestro «domesticado» cuadrado ha decidido dejar el rastro mul- 
ticolor de sus pasos cuando le hacemos recorrer la pantalla. 


LET x=10: LET y=15 

ERINT AT x,y3 INE (RNDx6) +5 "1: 
IF INKEY$="8" THEN  LET y:y+1 
JF y>31 THEN  LET y=231 

IF: INKEY$="5" THEN LET y=y-1 
IF y20 THEN -LET y=0 

IF. INKEYs$="7" THEN LET x=x-1 
IF 20 THEN  LET x=0 

IF INKEYS$="46" THEN LET iencrl 
IF x>21 THEN LET ox=21 

GO TO 20 


Para finalizar este capítulo incluye cualidades al color, un poco de 
sonido y mucha imaginación... Pueden ser buenos ingredientes para 
ese maravilloso juego que estás pensando. 
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RESUMEN CAPITULOS 4-5 y 6 


Entrada, salida, movimientos, preguntas y colores..., con estas 
palabras se podría resumir el contenido de este programa. 

Aquí hay otra forma de la instrucción PRINT, incluyendo en ella 
las palabras AT, PAPER, INK; también está presente la instrucción 
GO TO (ir a la línea...), úsala con mucho cuidado en tus programas, 
procurando siempre que éstos terminen... Á este ejercicio le falta esto, 
te invito a que crees líneas y modificaciones necesarias para lograrlo. 


10 INFUT *irtroduce ti nombre"; rt 
20 FLASH 1 

30 FOR a=0 TO 20 

40 INK INT CRKNIDk7) 

30 FRINT TAR ay rb 

60 NEXT 3 

7O FLASH 0 

30 LET x=l2 

90 LET yla 

100 INFUT *color del borde?*";h 

110 INFUT *color del rarelT?";p 

120 INFUT *color de lea tinrbtas?";t 
130 BORDER 

140 CLS 

150 PFRINT AT xy FAFER INK Tri 
160 CLS 

170 LET ius 

180 1F x<o21 THEN GO TO 

190 FRINT AT >», yy FAFERK y INK tzrb 
200 FAUSE 2 

210 60 TO 160 

220 

230 

240 q HEN LET y=0: 60 TO 190 
230 FRINT H, Yy FAFER y INK t;rb 
260 FAUSE 

270 60 TO 


GRAFICOS 


CAPITULO 7 
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CAPITULO 7 


En este capítulo trataremos los gráficos en baja resolución, es 
decir, vamos a construir figuras con los símbolos gráficos que apare- 
cen en las teclas del 1 al 8. 

Para utilizar estos símbolos deberemos poner el CURSOR en 
modo G (gráficos), esto lo haremos pulsando las teclas CAPS 
SHIFT + 9 en el ZX Spectrum, o GRAPH en el ZX Spectrum +. 

Ya tenemos el CURSOR en modo G, y pulsando las teclas del 1 
al 8 obtendremos los siguientes símbolos: 


LA ÑO o 


Y si pulsamos las teclas del 1 al 8 al mismo tiempo que CAPS 
SHIFT o SYMBOL SHIFT obtendremos otros 8 símbolos: 


hi =P" .W 


CAPITULO 7 


191 1 | 2] 3 | 4] 5 | o] 7| 8l 9 pro]! 1182/18/14] ds ed sá 
HP] 1] 


Iz!lolaoivioIalaluint=iO1 


- 
- 


lo | 1 la | 3 | al 516 | 7 | 8 | 9 l10l11112113114115116117)18119120121 lzdlzalzalz5l26127128l20l301311 


Figura 1 
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CAPITULO 7 - FIGURA 1 


Ahora crearemos algunos dibujos sencillos con el gráfico de la 
tecla 8. Construiremos un barco, pero antes de comenzar voy a 
explicarte detalladamente y una por una todas las líneas del 
programa: 


— Las líneas 10 y 20 constan cada una de un cuadrado. 

— En la línea 30 vemos un cuadrado seguido de dos espacios en 
blanco y otro cuadrado. 

— La línea 40 está formada por 3 cuadrados, un espacio en blanco 
y otro cuadrado. 

— En la línea 50 nos encontramos 8 cuadrados, un espacio en blan- 
co, otro cuadrado, un espacio en blanco y otro cuadrado. 

— La línea 60 tiene 3 cuadrados, un espacio en blanco, otro cuadra- 
do, un espacio en blanco y 9 cuadrados. 

— En la línea 70 hay 7 cuadrados, un espacio en blanco, otro cua- 
drado, un espacio en blanco y otro cuadrado, un espacio en blanco 
y otro cuadrado. 

— La línea 80 tiene 11 cuadrados. 


Si te fijas en la figura 1, comprobarás que no es muy dificil. 


FRINT AT 14,18; "NN" 

FRINT AT 13,18; "EN" 

PFRINT AT 16,13; "E E" 

FRINT AT 17,14; "EM E" 

FRINT AT 18€, 9; "BOS E E" 
FRINT AT 19,310; “BE M7 IE * 
FRINT AT 20,117 "BM MN E A” 
FRINT AT 21, 1.3; * BES * 


FIGURA 2 


El despistado Profesor Calambrin ha olvidado el listado de la 
figura 2; pero confío en tu ingenio para componerla en la pantalla, así 
como otras que puedes inventarte tú. 


CAPITULO 7 - FIGURA 3 


A continuación haremos algo un poco más complicado. Utiliza- 
remos otra clase de símbolos, además del que ya hemos utilizado. 


Si te fijas bien en la figura 3, te darás cuenta de que no sólo hemos 
usado cuadrados, sino otros símbolos para componer este simpático 
pistolero. 


ERINT 9,14, * PT 
PRINT 10,12, 
PRINT 11,14; 
ERINT 12,15; 
PRINT 13,12; 
PRINT 14,11; 
PRINT 15,11; 
PRINT 16,12; 
PRINT 17,13; 
PRINT 

FRINT 

PRINT 

PRINT 


Prrrrrrrrn 
d H 
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Figura 3 


CAPITULO 7 - FIGURA 4 


Y para facilitarte su creación, aparte del listado del programa te 
incluimos los símbolos que componen cada línea. 


a A 


e y 


ee Ma) 
(Ml (3 Ul 
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CAPITULO 7 - FIGURA 5 


¿Has pensado ya en la cantidad de posibilidades que te ofrecen 
estos gráficos para componer tus propios dibujos? Seguro que sí. 
Te recuerdo que tu Spectrum posee una variada gama de colores 


que puedes utilizar para hacer más divertidos tus dibujos. 
¿Qué tal un poco de movimiento? 


10 LET 
=0O LET 
30 LET 
40 LET 
50 PRINT 
50 PRINT 
70. PREÉNT 
ERINT 
PRINT 


PRINTOAT. 15,05 
PRINTOATO E, 0 
PRINTOAT dd. 

7 O THEN 


1F UnmS 
FPRUSE 10 
LET A=A+1 
LET ExE+l 
LET CExtC+zl 
LET D=x050P>+1 
cis 

INF. (CRNCEs 


GOTO En 


»DbpP 
NC 
G600060 
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CAPITULO 7 
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Figura 5 
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CAPITULO 7 - FIGURAS 6 Y 7 


Basándonos en el «muñeco» de la figura 5, veremos otra clase de 
movimiento. 


10 FRIMT OT sl. A 
ZO FRIMT ee O ON 
SO PRIPT 13,1 
ERINT E II ES 
ERIMT ET A 
FRIMT: A 
ERIMWMT E A A AS 
ER INT A A 
ERISE: - 
cu. 


ERIMNTO FAT den e + 


FERIMWMT AT A 
ERIMANT O IT I 
FRIMT AT AB. dE am 
PRINTOA4T 12 A IN 
PRIMNTO OT dd. dd 
PREIMWNT: A E TN 
FERIMT To. de A ML 
FRIMT HT 3, des A + 
ER Ez 

ZL= 

IHR CERA 


GOTO lu 
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CAPITULO 7 
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Figura 7 
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CAPITULO 7 - FIGURAS 8, 9, 10, 11 Y 12 


¿Te gusta la gimnasia? A nuestro muñeco seguro que sí, y aquí lo 


tenemos dispuesto a hacernos una demostración. 


10 
20 
30 
40 
JO 
60 
7O 
30 
90 
100 
110 


120 
130 
140 
130 
160 
170 
180 
190 
200 
210 


220 


230 
240 
230 
260 
270 
280 
290 
300 
310 
320 


BEORTER 1 


FRINT 
FRINT 
PFRINT 
FRINT 
FRINT 
PFRINT 
FRINT 
FRINT 
PAUSE 
Ls 


PFRINT 
PFRINT 
PFRINT 
PRINT 
PFRINT 
PFRINT 
FRINT 
PAUSE 
CLs 

PRINT 
PFRINT 


PFRINT 
PFRINT 
FRINT 
PFRINT 
PFRINT 
FRINT 
PAUSE 
CS 

PFRINT 
PFRINT 


ar 
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AT 
AT 
AT 
AT 
AT 
AT 
AT 


30 


AT 
AT 


ar 
AT 
AT 
ar 
AT 
AT 
30 


ar 
ar 


21,11; 
20,11; 


a SUS 


18,13; 
17,14; 
16,16; 
139,13; 


14,13; 


21,11; 
20,11; 
19,11; 
18,14; 
17,16; 
16,13; 


13,13 


21,14; 
20,11; 


19,11; 
18,11; 
17,14; 
16,16; 
13,13 


14,13; 


21,14; 


20,15; 
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CAPITULO 7 


330 FRINT 19,16; 


340 FRINT 18,165; 
330 FRINT 79d 
360 FRINT 10,115 
370 FRINT Ale e 
380 FRINT 14,13; 
390 FAUSE 

400 CELS 

410 FRINT 19,16; 
420 FRINT 137, 105 
430 FRINT 19,16; 
440 FRINT 127, 10 


430 FRINT 17, 140 
460 FRINT 19,165 
470 FRINT 179, 1165 
480 FRINT 19,165 
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Figura 8 
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CAPITULO 7 
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CAPITULO 7 
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Figura 11 
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Figura 12 
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CAPITULO 7 


Creo que nuestro amigo tiene dificultades en bajar las pesas. 
¿Podrías ayudarle? Inténtalo. 
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CAPITULO 7 


Si no lo has conseguido, aquí tienes la solución. 


10 LET 6m0 
0 LET A=0 En 
30 PRINT 2d 100 O 
PRINT 20, 1157" DI IA 
PRINT 19.11; “m0 mu endo 
PRINT 13,13: “E 6% MI: 
PRINT 17,145 * PUQUueu 
PRINT O AT 16,165 "mg" 
PRINT 18,165 ** Bou 
FRINTOFAT ld, Le: * RO 
IF 5: THEN =T0OF 


FRUSE 50 

cLs 

1F Hal THEN RETIRA 

FRINT + eo AS ES A 1 CL A LION 
PRINTOAT 20,14 "A 
FRINT A TS 
PRINT 15, La o O 

PRINT 7 O 1 

PRINT A TS 

FRINT A A TN 

FHOSE 


cua 

IF Pel THEN RETOS 

FRINT ZL,d 

FRINT 13; 0 150 0000 LN 
FRINT A IAS 
FRINT 115 “8 00 WY 03 Qu: 
ERINT A A MAA TT DS 

FRINT np 

FRINT NO + 

FRINT O + 

FAUSE 


ú 
CU 


0] 


En 
C 


a 
O vÚ 


ñ 


0 
P 
a 


FERRER E 
-] 


L 


a 


(2 
am 
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340 cLs 

950 IF Fsl THEN RETUF:1 

360 PRINT 21,145 ** Aa AO 

370 PRINT: 20,185 "O Mc 

3S0 FRINT 132,105 "m0" 

390 PRINT 13,185 “Il 

400 FRINMT 17,115 “1 A 0 + 
410 FRIMT : 115 "AE O 
40 ERINT Sa 115 “0 DGA mg 
430 PRINT : A 

dd PHUSE ' 


450 cLs 
460 IF Hw: 2H REVIA 
470 PRINMT 21.14; “0008 A > 
PRIMT 0,12; “00 Qu 
RR INT 12183" 
PRIMT AT 13,1; 
PRINTO 17,142 "DU 
PRIMT 11:00 0 A UA 
PRIWT Es 11: CM 
PFRIMT : 115 “000 AnnUCAAA LOA 


GS amaaqd<adc 
PROQUOo y a 
OCOGOOSSG 


ñ 
0) 


GO=SDOUB 


Gi 
(a 
G 


Quizás deberíamos haber incluido este programa en otro libro, ya 
que habrás notado la existencia de dos nuevas instrucciones GO SUB 
y RETURN (ver apartado de instrucciones), que no te habíamos 
explicado, no obstante lo único que pretendemos es que veas en 
acción a nuestro «muñeco». 
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RESUMEN GENERAL 


Después de un largo camino vamos a dar un repaso general a 
todo lo ya estudiado, para ello he hecho un gran programa-resumen 
en el que se incluyen los colores, efectos sonoros, parpadeos, y todo 
aquellos que tú ya sabes. Con un poco de paciencia estamos seguros 
de que no te será dificil introducirlo en tu Spectrum. 


10 BORDER 1 
20 FAFER 1 

30 CLS 

40 INK 2 

50 LET ab="APRENDE" 

60 LET b$=" JUGANDO" 

70 BRIGHT 1 

80 FLASH 1 

90 FOR a=0 TO 175 

100 INK INT (RNDXó6) +2 

110 FLOT 50,8 

120 URAW 2, 0 

130 IRAW 0, - 

140 NEXT a 

150 INK 7 

160 FOR e=1 TO 7 

170 FAFER 8-8 

180 FAUSE 20 

190 PRINT AT 2,8+8y8$0 TO 8) 

200 FPRINT AT 2+6, +8, b$0 TO 2) 

210 BEEP .2,34 

220 NEXT a 

230 FOR e=1 TO 60 STEP 3 

240 BEEF 23,8 

250 NEXT a 

260 FLASH 0 

270 CLS 

280 INK 6 

290 INPUT "DIME TU NOMBRE"; 08 

300 FLASH 1 

310 FRINT AT 6,10; "HOLA "0% 

320 PRINT AT 8,2; "EL PROFESOR CALAMERIN Y YO" 
330 FRINT AT 10,4; "ESPERAMOS QUE CONTINUES" 
340 FPRINT AT 12,2; "APRENDIENDO Y DESCUBRAS LOS" 
350 PRINT AT 14,4; "SECRETOS DE TU SPECTRUM" 


RESUMEN GENERAL 


360 FAUSE 
370 FLASH 

380 CLS 

390 FAFER 

400 CLS 

410 INK 2 

420 PRINT AT 4,10;3"M E NU" 

430 PRINT AT 5,8 o 
440 PRINT AT 7,9; "1-CIRCULOS" 

450 PRINT AT 9,9; "2-CUADRADOS" 

460 PRINT AT 11,9; "3-RECTANGULOS" 
470 PRINT AT 13,9; "4-TRIANGULOS" 
480 PRINT AT 15,9; "5-VAQUERO" 

485 PRINT AT 17,9; "6-FIN" 

490 LET a=5 

500 LET b=5 

510 LET c=165 

520 LET d=245 

530 FOR n=0 TO 4 

540 INK (RNI0K4) +1 

550 PLOT e, b 

560 IRAW 0, a 

570 DIRAN dd, O 

580 IRAN —, —e 

590 DIRAN —d, O 

600 LET a=xa+5 

610 LET b=b+5 

620 LET ecsxc-10 

630 LET ded-10 

640 NEXT ri 

650 IF INKEYS$="1*" THEN GO TO 730 
660 IF INKEYS$="2" THEN GO TO 850 
670 1F INKEYS$="3" THEN GO TO 1020 
680 IF INKEYS$="4" THEN GO TO 1180 
690 IF INKEYS$="5" THEN GO TO 1350 
695 IF INKEYS$="6" THEN GO TO 1640 
700 PRINT AT 21,7; "ELIJE LO QUE DESEES" 
720 GO TO 450 

730 CLS 

740 FLASH 1 

750 PRINT AT 2,8,"CIRCULOS" 
760 FLASH O 

770 INK 2 
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780 FOR a=0 TO 60 STEF 2 
790 CIRCLE 125,87, 8 

800 NEXT = 

810 FOR a=30 TO O STEF -2 
820 BEEF .34,8 

830 NEXT a 

840 GO TO 400 

850 CLS 

860 FLASH 1 

870 PRINT AT 2,8;"CUADRADO OS" 
880 FLASH O 

890 FOR c=1 TO 70 STEF 2 
900 ELOT 

910 TIRAN 

920 TIRAN 

930 TIRAN 

940 TIRAN 

950 NEXT 

960 FOR f=0 TO 20 

970 BORDER INT (RNIM7) 
990 FAUSE 10 

1000 NEXT f 

1010 GO TO 400 

1020 CLS 

1030 FLASH 1 

1040 PRINT AT 2,63 "RECTANGULO SS" 
1050 FLASH O 

1060 FOR i=1 TO 55 STEF 3 
1070 FLOT 60+i, 7+i 

1080 DRAW 0, 25+i 

1090 IRAW 65+1,0 

1100 DRAW 0, -25-i 

1110 DRA -ó635-i,0 

1120 INK INT (RNIM6) +1 
1130 NEXT i 

1140 FOR d=i TO 10 

1150 REEF .23, 2: BEEF .44,-3 
1160 NEXT « 

1170 GO TO 400 

1180 CLS 

1190 FLASH 1 

1200 FRINT AT 2,6;3"TRIANGULOS" 
1210 FLASH O 


RESUMEN GENERAL 


1220 FOR a=213 TO 100 STEF 9 


1230 INR INT CRNIOKGS) +1 
1240 PLOT 3,63 

1230 RAN 43, 30 

1260 URAW 43, 33 

1270 RAW 90,0 

1280 RBEEF .12, INT ENIDE2ZO 
1290 NEXT a 


1300 FOR s=1 TO 20: FRINT AT 


HARAN OOOO Ok " 
1310 INR INT C€RENIOkó) +1 
1320 NEXT 3 

1330 FAUSE 120 

1340 60 TO 400 

1350 CLS 

1360 FLASH 1 


1370 FRINT AT 2,6; "EL VAQUERO 


1380 FLASH 0 
1383 FOR s=1 TO 153 
1390 FRINT AT 9,14," FW 


1400 FRINT AT 10,12; * "Malo" 


1410 FRINT AT 11,14; * HI * 
1420 PFRINT AT 12,13; "kh" * 


a, 03 MolooIOIOlolOK 


SOLITARIO" 


1430 FRINT AT 13,12; "eL * 
1440 FRINT AT 14,11; " IPR "E" 
1450 FRINT AT 15,11; " E MN Ml" 
1460 FRINT AT 16,12; "NEL FP" 


1470 FRINT AT 17,13; "IMAN" 
1480 FRINT AT 18, 1.3; ""U EF * 
1490 FRINT AT 19,13; * E E" 


1300 PFRINT AT 20,14; "Ek * 


1310 FRINT AT 21,13, * UE KR” 


1520 INK INT (RNDK6) +1 
1530 BEEF .23, 8 

1540 FAUSE 20 

1550 NEXT a 

1560 CLS 

1565 FLASH 1 

1570 FOR a=1 TO 20 
1580 PRINT AT 8,05” 
1590 INK INT C(RNI6) +1 
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RESUMEN GENERAL 


NEXT e 

PAUSE 90 

FLASH 0 

GO TO 400 

ELS 

INK 2 

FLASH 1 

PRINT AT 10,1; "ESTE FROGRAMA SE 
AUTOUESTRUTRA”" 

PRINT AT 11,7; "EN VEINTE SEGUNDOS" 
PAUSE 230 

REEF 9,12 

NEU 


SITE ATREVES... 


Teclea el siguiente programa y obtendrás una bonita sorpresa. 


10 
20 
30 
40 


60 
7O 
80 


BORDER 3 
PAPER 5 

INK O 

CLS 

FLOT 80,111 
IRAW 96, 0 

URAW 0, -80 

DRAW -96,1,-1.5 
IRAW 0, 79 

FLOT 112,0 

URAW 0,14 

FLOT 143,0 

IRAW 0,14 

FLOT 88,112 
IRAN 0, 52 

IRAW 15, 1,-1.5 
IRAN 0, -53 

PLOT 152,112 
IRAN 0, 52 

URAW 15, 1,-1.5 
IRAN 0, -53 

FLOT 88,143 
URAW 14,0 

PLOT 153,143 
IRAW 14,0 

FOR g=0 TO 200 
PLOT 128+36x*XSIN(g/100XFI), 51+29kC08 (g/100XxFI)> 
NEXT g 

PLOT 132,72 
IRA 35,14, -3 
IRAN 5, -25, —1 
FLOT 124,72 
IRA -35,14,3 
URAW 5, -25, 1 
FOR n=5 TO 2 STEP -1 
CIRCLE 140,80,r 


81 


SI TE ATREVES... 


NEXT ri 

FOR n=3 TO 2 STEF 1 
CIRCLE 1153, 80, ri 
NEXT ri 

FLOT 110,21 

DIRA 33,16, 1 

PLOT 168, 33 

DORA 1,3, 2 


DESPEDIDA 


Hemos llegado al final de este libro..., nuestro objetivo inicial era 
que tú y tu SPECTRUM formárais un buen equipo, el único capaz de 
juzgar ésto eres tú y la posibilidad que tienen hoy de hacer tus 
propios programas. 

El Profesor Calambrín y yo os decimos ¡Hasta pronto, y a con- 
tinuar trabajando! 


«NO TEMAS IR LENTO... TEME NO AVANZAR» 


GLOSARIO DE TERMINOS INFORMATICOS 


ALGORITMO: 


ARCHIVO: 


ASCII: 


BASE DE 
DATOS: 


BINARIO: 


Es uno de los lenguajes de alto nivel más 
modernos que existen. Fue desarrollado a 
partir del año 1979. 


Conjunto de reglas definidas que constitu- 
yen un procedimiento. Los ALGORIT- 
MOS deben ser ilimitados,determinantes y 
generales. La simple escritura de un pro- 
grama en cualquier lenguaje constituye la 
elaboración de un ALGORITMO. 


Estructura lógica de almacenamiento de 
datos. 


(Abreviatura) (Código normalizado esta- 
dounidense para el intercambio de infor- 
mación). Es un código de caracteres muy 
utilizado en informática. Ejemplo: Teclea 
esta línea: 

10 PRINT CHR$ (89) 

El carácter correspondiente al código 
ASCII 89 es la letra Y. 


Conjunto de datos ordenados entre los 
cuales existe una relación y que están 
almacenados fuera de los programas que 
lo utilizan. 


(Código de instrucciones simbólicas de 
propósito general para principiantes). En 
un lenguaje de alto nivel desarrollado para 
facilitar el uso de ordenadores por parte de 
los principiantes. Actualmente es el lengua- 
je más utilizado en los microordenadores. 


Código numérico en el que sólo hay dos 
símbolos (0, 1). Todos los ordenadores 
utilizan este código. 


BUFFER: 


CAMPO: 


COBOL: 


COMPILADOR: 


DATOS: 


DIAGRAMA 
DE FLUJO: 


DIRECCION: 


(Regulador). Indica una zona en memoria 
en la que se almacenan de forma temporal 
los datos. 


Grupo de enlaces eléctricos empleados 
para unir un ordenador a otro mecanismo 
auxiliar (periféricos) a otro ordenador. 


Unidad Básica de Información. Representa 
la más pequeña cantidad de información 
que puede almacenarse, transmitirse O 
procesarse. 


Grupo de 8 bits consecutivos. Es el grupo 
más pequeño de bits que forman una 
palabra en el ordenador. 


Son las diferentes partes en las que se 
divide un registro. 


Lenguaje de alto nivel orientado hacia el 
mundo de los negocios. 


Es un programa que traduce otro progra- 
ma escrito en un lenguaje de alto nivel 
(BASIC, COBOL, PASCAL, etc.) al len- 
guaje máquina, de modo que ésta lo en- 
tienda directamente. 


Sistema operativo utilizado por algunos 
ordenadores. 


Término general que se le da a la informa- 
ción tratada por un ordenador. 


Dibujos esquemáticos que permiten repre- 
sentar de forma geométrica (organigrama) 
los pasos de un programa. 


Número que se refiere a la posición, gene- 
ralmente en la memoria de un ordenador, 
en la que se almacena la información. 


DOS: 
ENSAMBLADOR: 


ENTRADA: 


FORTRAN: 


HARDWARE: 


HEXADECIMAL: 


INTERPRETE: 


KILOBYTE: 


LENGUAJE DE 
ALTO NIVEL: 


LENGUAJE DE 
BAJO NIVEL: 


LOGO: 


Soporte de almacenamiento magnético 
utilizado para acumular información del 
ordenador y los programas. Existen varios 
tipos de disco: duro, flexible y óptico. 


Sistema operativo en disco. 

Es un programa compilador que se utiliza 
para traducir el texto de un programa de 
lenguaje ensamblador a lenguaje máquina. 


Se denomina así a toda la información que 
se introduce en un programa durante su 
ejecución. 


(Traductor de fórmula). Es un lenguaje de 
alto nivel utilizado generalmente para 
trabajos científicos. 


Este término nos indica todas las partes 
físicas de un ordenador, eléctricas o 
mecánicas. 


Es un sistema de numeración en base 16, 
que utiliza 16 símbolos: 0, 1, 2, 3, 4, 5, 6,7, 
8,9 A,B,C,D,E,F.  * 


Convierte un programa de alto nivel a otro 
programa que puede ser interpretado por 
el ordenador durante su ejecución: 


Es una medida de memoria de los ordena- 
dores. Un kilobyte equivale a 1.024 bits. 


Son los lenguajes que más se asemejan al 
lenguaje humano. 


Son aquellos que más se asemejan al 
lenguaje usado por la máquina. 


Lenguaje de alto nivel, de fácil empleo, 
orientado al aprendizaje de la programa- 
ción infantil. 


MEMORIA: 


MATRIZ: 


MICRO- 
PROCESADOR: 


MONITOR: 


PASCAL: 


PROGRAMA: 


REGISTRO: 


Es un lugar del ordenador donde se guarda 
la información. Existen dos tipos de me- 
moria: la RAM y la ROM. 


Conjunto de datos ordenados por índices. 


Es un componente electrónico que contie- 
ne las partes fundamentales de un ordena- 
dor. (Unidad Central, Unidad Aritmético- 
lógica y Registros para uso general). 


Es un mecanismo que permite la comuni- 
cación entre ordenadores. Ejemplo: Por 
una línea telefónica. 


Tiene dos significados: 

a) Como pantalla de televisión, usada 
como unidad de «display» de un ordena- 
dor que permite “visualizar los datos y 
gráficos con mayor claridad que una T.V. 
normal. 

b) Información que lleva el ordenador y 
que le permite asimilar y ejecutar un 
programa. 


Es un lenguaje de programación de alto 
nivel cuya característica principal es la de 
una programación disciplinada y 
estructurada. 


Es un conjunto de instrucciones estructu- 
radas cuyo cometido es la resolución de un 
problema. 


(Memoria de acceso aleatorio). Se denomi- 
na así a la memoria donde se pueden 
desarrollar operaciones de escritura y de 
lectura. 


Es un lugar de la memoria del ordenador 
donde se encuentran los datos que van a 
ser utilizados. 
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ROM: 


SALIDA: 


SISTEMA 
OPERATIVO: 


SOFTWARE: 


SUBRUTINA: 


VARIABLES 
NUMERICAS: 


VARIABLES 
ALFANUMERICAS: 


Instrucción mediante la cual se borra el 
contenido de la memoria y se pone a punto 
para comenzar a utilizar el ordenador. 


(Memoria solo de lectura). Es aquella 
memoria en la que solamente se puede leer. 


Se denomina así a toda la información que 
sale de un programa durante su ejecución. 


Es aquel programa que se encarga del 
control y funcionamiento general del 
ordenador. 


Es el conjunto de programas que cargados 
con el HARDWARE de un ordenador 
hacen que éste funcione. 


Es un programa dentro de otro programa 
al que se le llama un determinado número 
de veces durante la ejecución del programa 
principal. 


Son aquellas que representan valores 
numéricos. 


Conjunto de caracteres formados por 
letras, números y caracteres especiales. 


ALGUNAS INSTRUCCIONES, COMANDOS Y FUN- 
CIONES DEL BASIC EN EL SPECTRUM 


Para ejecutar los programas ejemplo se deberá pulsar RUN + 


ENTER. 


ABS: 


AND (Y): 


AT (EN): 


BORDER: 


BRIGHT: 


CHAR $: 


Calcula el valor del número que sucede. Ejemplo: 
10 PRINT ABS (25) 

25 

O.K. 


(Operador lógico). Une dos condiciones de tal forma 
que sólo da verdadero si ambas condiciones son 
ciertas. Ejemplo: 

10 IF A=10 AND B=20 THEN PRINT «es veradero». 


Esta instrucción va conjuntamente con PRINT, e indi- 
ca la posición en la pantalla (horizontal y vertical) 
donde se va a imprimir. Ejemplo: 

10 PRINT AT 12,10;“ Aprende jugando” 


Determina en radianes el ángulo cuya tangente es el 
argumento. Ejemplo: 

10 PRINT ATN (89) 

1,5595608 

O.K. 


Esta construcción genera un sonido en el Spectrum, 
siendo el primer número de la sentencia la duración y 
el segundo el tono. Ejemplo: 

10 BEEP 10,8 


Sentencia por la cual se da color a la zona que rodea 
el papel. Ejemplo: 
10 BORDER 5 


Instrucción mediante la cual se controla el brillo de 
los colores. Puede estar activado (1) o desactivado (0). 


Determina el carácter de un código ASCII. Ejemplo: 
10 PRINT CHRS (86) 

V 

O.K. 


89 


CIRCLE: 


La sentencia CIRCLE X, Y, R, dibuja una circunfe- 
rencia en la posición X, Y, con un radio R. Ejemplo: 
10 CIRCLE 1925, 87, 20 


Este comando del Basic borra el contenido de todas 
las variables de la memoria. 


Borra el contenido de la pantalla. 


En función del Basic que calcula el coseno del ángulo 
X, expresado en radianes. 

Ejemplo: 

10 PRINT COS (40) 

-0,66693806 

Proporciona valores a una instrucción READ. 
Ejemplo: 

10 READ AS 

20 DATA «ENERO» 

30 PRINT AS 

ENERO 

O.K. 


Permite la definición de una función. Ejemplo: 
10 DEF FN X (L, M, N)= (L+ M+N) 

20 LET A=40 

30 LET B=50 

40 LET C=60 

50 PRINT FN X (A, B, C) 

150 

O.K. 


Declara el tamaño de una o más matrices. Ejemplo: 
10 DIM A (10, 3) 


Traza una línea a partir de un punto determinado 
PLOT. Ejemplo: 

10 PLOT 100,100 

20 DRAW 30,30 

Función del Basic que calcula la potencia en base E 
(2,71828) del número que le antecede. Ejemplo: 

10 PRINT EXP (4) 

54,59815 

O.K. 


IF...THEN: 


INKEY $: 


INPUT: 


Instrucción mediante la cual se produce el parpadeo 
de la pantalla. Con el número 0 se desactiva y con el 
número 1 se activa. 


Repite las instrucciones que se encuentran entre el 
FOR y el NEXT un número especificado de veces. 
Ejemplo: 


10 FOR A=1 TO 6 
20 PRINT A 
30 NEXT A 


El funcionamiento de esta instrucción es similar al 
GO TO, con la particularidad de que llama a una 
subrutina. Ejemplo 

10 GO SUB 30 

20 STOP 

30 PRINT «subrutina» 

40 RETURN 


Transfiere el control al número de línea indicado. 
Ejemplo: 

10 GO TO 50 

20 —— — 

30 —-— — 

40 —- — 

50 PRINT «HOLA» 


Si la condición es cierta, el programa ejecutará las 
instrucciones indicadas, después de THEN. Ejemplo: 
10 IF A=10 THEN PRINT “ERROR” 


Instrucción por la cual se cambia el color de la tinta. 
Ejemplo: 
10 INK 4 


Esta instrucción permite la lectura directa desde el 
teclado. 


Permite la introducción de datos por el teclado. 
Ejemplo: 

10 INPUT “INTRODUCE UN NUMERO”; A 

20 PRINT A 
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LIST: 


LOAD: 


LPRINT: 


LLIST: 


MERGE: 


NOT: 


Función del Basic que proporciona el valor entero del 
número que le sucede. Ejemplo: 

10 PRINT INT (8. 6) 

8 

O.K. 


Indica el número de caracteres. Ejemplo: 
10 LET AS=“HOLA” 

20 PRINT LEN AS 

4 

O.K. 


La instrucción LET asigna un valor a una variable. 
Ejemplo: 

10 LET A=20 

20 LET B$=“ANTONIO” 


Lista un programa por la pantalla a partir de la pri- 
mera línea. 


Carga un programa desde cassette. 


Esta instrucción permite la impresión directamente 
desde una impresora. 


Lista un programa por la impresora. 


Esta instrucción sirve para unir programas en la 
memoria. 


Operador lógico de negación. Ejemplo: 
10 FLASH NOT 1 


Operador lógico del Basic cuya utilización sirve para 
formar expresiones lógicas. Dará resultado verdadero 
si al menos una de las condiciones es cierta. Ejemplo: 
10 IF A=20 OR B=30 THEN  PRINT 
“VERDADERO” 


Esta sentencia dibuja un punto en la pantalla. La 
posición viene dada por dos coordenadas (anchura 0- 
255, altura 0-175). Ejemplo: 

10 PLOT 100, 100 


RESTORE: 


Sentencia por la cual se asigna el color del papel. 
Ejemplo: 

10 PAPER 2 

20 CES 


Imprime en pantalla la variable y/o constante indica- 
da. Ejemplo: 

10 PRINT “APRENDE JUGANDO” 

APRENDE JUGANDO 

O.K. 


Lee los valores de la variable de una instrucción DA- 
TA. Ejemplo: 

10 READ AS,A 

20 DATA “Precio”,1000 

30 PRINT AS, A 

Precio 1000 

O.K. 


Esta instrucción se emplea para incluir comentarios y 
carece de poder operativo. Ejemplo: 

10 REM la línea siguiente imprime un mensaje. 

20 PRINT “Profesor Calambrín” 

O.K. 


Permite asignar de nuevo los valores de la instrucción 
DATA a las variables de la instrucción READ. 
Ejemplo: 

10 RESTORE 50 

20 READ A 

30 RESTORE 60 

40 READ B 

S0 DATA 1000 

60 DATA 2000 

70 PRINT A,B 

1000 2000 

O.K. 
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RETURN: 


Devuelve el control desde una subrutina. Ejemplo: 
10 GO SUB 100 
20 GO SUB 100 

100 REM comienza subrutina 

110 PRINT “APRENDE JUGANDO” 

120 RETURN 


Esta función genera una sucesión de números pseu- 
doaleatorios. Ejemplo: 

10 FOR X=1 TO 4 

20 PRINT RND* 1 

30 NEXT X 

0.08581543 

0.43719482 

0.79025269 

0.26918037 

O.K. 


Ejecuta un programa 


Calcula el seno del argumento que se indica en radia- 
nes. Ejemplo: 

10 PRINT SIN (8) 

0.98935825 


Función del Basic que calcula la raíz. cuadrada. 
Ejemplo: 

10 PRINT SQR (25) 

5 


O.K. 


(Paso). La instrucción STEP permite ejecutar el bucle 
FOR...NEXT con un paso cualquiera. Ejemplo: 
10 FOR 1=1 TO 40 STEP 4 


Interrumpe la ejecución de un programa e indica el 
número de línea donde se ejecuta dicha instrucción. 


Función del Basic que convierte el valor de una varia- 
ble numérica en una cadena. Ejemplo: 

10 LET W=2 

20 LET AS=STR$ W 

30 PRINT AS$ 

2 

O.K. 


La función TAB se utiliza con la instrucción PRINT. 
El número que le sigue a la función TAB nos indica la 
columna de la pantalla donde se realizará la impre- 
sión. Ejemplo: 

10 PRINT TAB 2; “APRENDE JUGANDO” 


Sirve para verificar si la grabación de un programa 
desde cassette se ha realizado de la forma correcta. 
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